home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_87-12_1987_-_de_Side_B.d64 / 7. part (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  15KB  |  348 lines
  1. 10 v=53248:s=54272:pokev+21,0:pokes+24,15:sys5264:d$=""
  2. 20 open1,8,0,"2. part,p,r":fori=1to10:input#1,hi$(i):next:close1
  3. 30 printleft$(d$,19)"[159]if you don't want to play with the
  4. 32 [153]"current highscores then switch off
  5. 34 print"the disk-station now.
  6. 40 [153]d$"ondef   press any key to start 'runanway'!
  7. 50 poke198,0:wait198,1:poke198,0
  8. 60 poke768,185:open15,8,15,"i":close15:poke768,139:ifst<>-128goto90
  9. 80 fori=1to10:hi$(i)="0000000  00  ???":next
  10. 90 fori=0to39:b$=b$+" ":up$=up$+"[196]":do$=do$+"[198]":m$=m$+"@":next
  11. 92 fori=0to9:readh(i):next
  12. 94 dimtr(11):fori=0to10:readt0(i),t1(i),tn(i):next:fori=0to11:readtr(i):next
  13. 96 diml$(19),i$(13):fori=0to19:readl$(i):next:fori=0to13:readi$(i):next
  14. 100 gosub200:sys5666
  15. 101 print"[213]"left$(up$,38)"[201][199][158]_ >>> [171][179]  [177][178]  [176][174]  [171][219]  [173][189]  [171][219]  [202][203] <<< ^[146][200][202]";
  16. 102 printleft$(do$,38)"[203]":fori=1to800:next
  17. 104 printspc(5)"created [150]1985 [159]by [158]j_rgen paasch":fori=1to800:next
  18. 110 print"[155]@@[152]\[157][157][157][155]@@@[152]\ [155]@@[152]\[155] @@[152]\ [155]@@[152]\ [155]@@[152]\[193][155]@@ [152][193][155]@@ [152][193][155]@@ [152][193][155]";
  19. 112 print"@@ [152][193][155]@@@[145][157][157][157][152][193][155]@@
  20. 114 [129]i[178]1[164]6:[153]"list"m$;:[130]:[153]"for"b$b$b$;
  21. 115 [151]v[170]28,0:[153]"  press button on joystick @2 to play. 
  22. 116 fori=1to3:printleft$(d$,19)spc(6*i-2)"[151] [149] [157] [157][157][152]  ":next
  23. 117 fori=4to6:printleft$(d$,19)spc(6*i-2)"[149] [151] [157][149][157] [157][152]  ":next
  24. 124 sys5526:fori=0to19:poke1864+120*rnd(1),198+4*rnd(1):next
  25. 126 poke4338,0:poke4339,0:poke4337,2:pokev+1,189:pokev+39,1:q=.:poke182,0
  26. 128 h=0:fori=1to20:sys4794:forj=0to60:nextj:sys5308:ifpeek(182)=5goto4300
  27. 129 next:q=q+1:ifq>3goto6000
  28. 130 pokev+16,64:x=48*int(rnd(1)*6+1)+4:ifx>255thenpokev+16,65:x=x-256:h=1
  29. 132 poke2040,196:pokev,x:pokev+21,127:d=0
  30. 134 sys4794:d=d+1:ifd=4thend=0
  31. 136 pokev+1,peek(v+1)+1:poke2040,196+d:fori=1to55:next:sys5308:ifpeek(182)=5goto4300
  32. 137 ifpeek(v+1)<218goto134
  33. 138 sys4794
  34. 140 k=0:l=.:y=48*int(rnd(1)*6+1)+4:ify>255theny=y-256:k=1
  35. 141 ifh=kandy=xgoto140
  36. 142 d=200:j=2:if(y+256*k)<(x+256*h)thend=204:j=-2
  37. 144 sys4794:l=l+1:ifl=4thenl=0
  38. 146 x=x+j:ifx<.andh=1thenx=254:pokev+16,64:h=0
  39. 148 ifx>255thenx=.:pokev+16,65:h=1
  40. 149 sys5308:ifpeek(182)=5goto4300
  41. 150 pokev,x:poke2040,d+l:fori=1to55:next:ifx<>yorh<>kgoto144
  42. 152 d=0
  43. 154 sys4794:d=d+1:ifd=4thend=0
  44. 155 sys5308:ifpeek(182)=5goto4300
  45. 156 pokev+1,peek(v+1)-1:poke2040,192+d:fori=1to55:next:ifpeek(v+1)>189goto154
  46. 158 pokev+21,126:goto128
  47. 200 print"[147]"d$:fori=0to1e3:next:poke53272,(peek(53272)and240)or2
  48. 203 printspc(7)"[158][192][162][162][162][162][162][162][162][162][162][162][162][162][146][184][184][184][184][184][184][183][183][183][183][163][163]
  49. 204 [141]216:[153][166]7)" getrndrndgetnewrndgetnewnewgetnewrndgetnewrndwaitlogrndnewgetnewrndgetnewrnd
  50. 205 gosub216:printspc(7)" [161][161][161][161][162][162][161][162][146][190][161][187][162][161][162][187][161][161][161][161][187][162]
  51. 206 [141]216:[153][166]7)" waitloglogloglog  lognewnewwaitloglognewwaitlog log lognewwaitlognewnewwaitloglogrnd
  52. 207 gosub216:printspc(7)"[175][146] s  o  f  t  w  a  r  e[158][161]
  53. 208 [141]216:[153][166]7)"newnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnewnew
  54. 209 fori=0to17:gosub216:print:next:print"
  55. 210 [129]i[178]1[164]1e3:[130]:u$[178]"newnewnewnewnewnewnewnewnewnewnewnewnewposandto          toandposnew"
  56. 211 j$[178]"wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait wait waittab(waitusrwaitfrenewposandto toandposnewwaitfrewaitusrwaittab("
  57. 212 [129]i[178]1[164]13:[153]""[166]7)[202](u$,i,13)[202](u$,32[171]i)
  58. 213 [153][166]7)[202](j$,i[170]i,26)[202](j$,77[171]i[171]i):[141]216:[130]
  59. 214 u$[178]"        p r e s e n t s":[129]j[178]0[164]1e3:[130]:[129]i[178]1[164]8
  60. 215 [153]""[166]11)[202](u$,i,9)[202](u$,25[171]i):[129]j[178]0[164]99:[130]j,i
  61. 216 [142]
  62. 900 lv[178]0:sc[178]0:lf[178]2
  63. 905 [139]lv[173]3[178][181](lv[173]3)[175]lv[177]0[167]ch[178]1
  64. 906 [139]lv[173]3[177][181](lv[173]3)[175]ch[178]1[167]ch[178]0:lv[178]lv[171]1
  65. 907 [139]ch[178]0[137]910
  66. 908 [137]3500
  67. 910 [151]v[170]21,.:[153]"loaddefget ready to enter next dungeon:
  68. 912 print"[158]"l$(10)"[145][145][145]"l$(11)"[145][145][145]"l$(12)"[145][145][145]"l$(11)"[145][145][145]"l$(10)"";
  69. 914 u$=str$(lv+1):fori=2tolen(u$):print"[145][145][145]"l$(asc(mid$(u$,i))-48);:next
  70. 920 lv=lv+1:fori=0to23:pokes+i,0:next
  71. 921 pokes+5,95:pokes+6,170:pokes+12,10:pokes+13,90
  72. 922 fori=8to11:x=tr(i):gosub3010:pokes+1,j:pokes,k:pokes+4,33
  73. 924 forj=1to7:fork=6to10:pokes+24,k:next:fork=15to7step-1:pokes+24,k
  74. 926 nextk,j:pokes+4,32:pokes+11,32:next:fori=0to300:next
  75. 1000 pokev+17,peek(v+17)and239:pokev+16,0:pokev+28,0:print"[147]":gosub3300
  76. 1010 print"[213]"left$(up$,38)"[201][199][158]_ >>> [171][179]  [177][178]  [176][174]  [171][219]  [173][189]  [171][219]  [202][203] <<< ^[146][200][202]";
  77. 1020 printleft$(do$,38)"[203][155]@@[152]\[157][157][157][155]@@@[152]\ [155]@@[152]\[155] @@[152]\ [155]@@[152]\[193][155]@@ [152][193][155]@@ [152][193][155]";
  78. 1022 print"@@ [152][193][155]@@[145][157][157][152][193][155]@
  79. 1100 [129]i[178]1[164]5:[153][200](d$,5[170]i)"list"[200](m$,31)"":[130]
  80. 1110 [129]i[178]1[164]15:[153][200](d$,10[170]i)"for"[200](b$,31)"":[130]
  81. 1120 [129]i[178]0[164]29:[151]1424[170][181](15[172][187](1))[172]40[170]31[172][187](1),198[170]4[172][187](1):[130]
  82. 1200 [139]lv[173]2[178][181](lv[173]2)[137]1300
  83. 1210 [158]4153:l[178]27:u$[178]"verify poke cmdcmdverify poke cmdcmdprint#  "
  84. 1290 [137]1400
  85. 1300 [158]4189:l[178]2:u$[178]"poke verify cmdcmdpoke verify cmdcmdprint#  "
  86. 1400 [151]s[170]4,0:[151]s[170]24,15
  87. 1401 [153][200](d$,8)[166]l)u$:[151]v[170]14,17[170]l[172]8[171]7[172](l[177]3):[158]4199
  88. 1402 [151]2047,211[170](l[177]3):[151]v[170]12,[194](v[170]14)[171]7[172](l[179]3):[151]v[170]21,192
  89. 1403 [151]v[170]17,[194](v[170]17)[176]16:[129]i[178]1[164]1e3:[130]:[151]s[170]11,0:[151]s[170]24,15
  90. 1404 [151]s[170]4,0:[151]s[170]5,0:[151]s[170]6,250:[151]s[170]4,33:[129]i[178]24[164]40[169]2
  91. 1406 [129]j[178]0[164]1:[151]v[170]21,192[170]j:[129]k[178]i[170]j[164]40:[151]s[170]1,k:[130]k,j,i:[151]s[170]4,32
  92. 1408 [129]i[178]40[164]84:[151]s[170]1,i:j[178]2[174]2:[130]:[151]s[170]4,0:[129]i[178]1[164]666:[130]
  93. 1410 [139]ch[178]1[137]1610
  94. 1412 [141]3100
  95. 1414 [151]v[170]28,48:[151]v[170]37,2:[151]v[170]38,0
  96. 1420 d[178]0:[151]v[170]8,39[171]192[172](l[177]2):[151]v[170]9,100:[151]v[170]43,5:[151]2044,209:[151]v[170]21,209
  97. 1422 [129]i[178]0[164]6:[129]j[178]0[164]80:[130]:[151]v[170]8,[194](v[170]8)[171]1[171]2[172](l[177]3):[151]2044,209[171]d:d[178]1[171]d
  98. 1428 [151]v[170]9,102[170]i[170]i:[130]:[129]i[178]0[164]500:[130]:[141]3200
  99. 1436 [151]v[170]10,[194](v[170]8):[151]v[170]11,[194](v[170]9):[151]v[170]44,5
  100. 1438 [151]2045,209:[151]v[170]21,241:[151]4345,0:[151]4344,lv[170]1:[151]4343,0
  101. 1440 [151]182,0:[151]4342,[194](v[170]12)[171]4:[151]4338,0:[151]4339,0:[151]4337,5
  102. 1442 [151]4336,0:[151]4335,56
  103. 1500 [158]4869:[129]j[178]0[164]20:[130]:[139][194](182)[178].[137]1500
  104. 1510 [139][194](182)[178]2[137]2000
  105. 1515 [139][194](182)[178]3[137]5000
  106. 1520 [151]s[170]11,0:[129]j[178]0[164]200:[130]
  107. 1522 [129]i[178]0[164]4:[151]s[170]11,.:[151]s[170]13,.:[151]s[170]12,42:[151]s[170]7,h(i):[151]s[170]8,h(i[170]5)
  108. 1524 [151]s[170]11,33:[129]j[178]0[164]66[171]99[172](i[177]1)[171]66[172](i[178]2):[130]j,i:[129]j[178]0[164]400:[130]
  109. 1530 [151]s[170]11,0:[141]3100
  110. 1540 d[178].:[129]i[178]0[164]8:d[178]2[171]d:[151]2040,193[170]d:[129]j[178]0[164]50:[130]:[151]s[170]4,0
  111. 1542 [151]v[170]1,[194](v[170]1)[171]1:[151]s[170]1,50:[151]s[170]6,0:[151]s[170]5,2:[151]s[170]4,129:[130]
  112. 1544 [151]v[170]21,240:[129]i[178]0[164]200:[130]:[141]3200:sc[178]sc[170]300:[141]3400
  113. 1556 [151]v,[194](v[170]10):[151]v[170]1,[194](v[170]9):[151]182,0
  114. 1558 [158]4614:[129]j[178]0[164]2:[130]
  115. 1560 [139][182]([194](v[170]8)[171][194](v[170]10))[177]3[176][182]([194](v[170]9)[171][194](v[170]11))[177]1[137]1558
  116. 1562 [151]v[170]21,208:d[178].:[129]k[178]0[164]2:[151]v[170]43,5[171]k[171]k[171]12[172](k[178]2):[129]i[178]0[164]3
  117. 1564 d[178]1[171]d:[151]2044,208[170]d:[129]j[178]0[164]33:[130]j,i,k:[151]s[170]4,.:[151]s[170]1,9:[151]s[170]6,0
  118. 1566 [151]s[170]5,12:[151]v[170]43,1:[151]v[170]28,0:[151]s[170]4,129:[129]i[178]0[164]14
  119. 1568 [151]2044,216[170]i:[129]j[178]0[164]33:[130]j,i:[151]v[170]21,192
  120. 1600 [141]3600:[129]i[178]0[164]1400:[130]:[137]905
  121. 1610 [151]v[170]28,.:[151]v[170]37,7:[129]i[178]1[164]5:[151]v[170]39[170]i,7
  122. 1612 [151]v[170]i[170]i,0:[151]v[170]1[170]i[170]i,156:[130]:[129]i[178].[164]9:[151]4992[170]i,.:[130]
  123. 1614 [129]i[178]1[164]5:[151]s[170]4,0:[151]s[170]5,10:[151]s[170]6,7:[151]s[170]4,33:[151]v[170]i[170]i,42[172]i[170]8
  124. 1615 [151]2040[170]i,230:[151]v[170]21,[194](v[170]21)[176](2[174]i):[129]j[178]0[164]4
  125. 1616 [151]s[170]1,50[171]5[172]j[171]5[172]i:[151]2040[170]i,230[171]j:[129]k[178]0[164]33:[130]k,j
  126. 1617 [151]v[170]28,[194](v[170]28)[176](2[174]i):[151]v[170]39[170]i,10
  127. 1618 [151]2040[170]i,213:[151]s[170]4,32:[129]j[178]0[164]99:[130]j,i:[151]s[170]4,0:[151]s[170]24,143
  128. 1619 :[151]s[170]15,255:[151]s[170]19,255:[151]s[170]18,129
  129. 1620 [151]182,0:[151]4342,[194](v[170]12)[171]4:[151]4338,0:[151]4339,0:[151]4337,5
  130. 1622 [151]4336,0:[151]4335,56:[151]4990,4:[151]4989,213:[151]5476,lv[173]3
  131. 1624 [139]lv[177]5[167][151]5476,lv[173]3[171]1
  132. 1630 [158]5477:[129]j[178]1[164]20:[130]:[139][194](182)[178].[137]1630
  133. 1634 [139][194](182)[178]3[137]5000
  134. 1635 [139][194](182)[178]2[137]5100
  135. 1640 [151]s[170]11,0:[129]j[178]0[164]200:[130]
  136. 1642 [129]i[178]0[164]4:[151]s[170]11,.:[151]s[170]13,.:[151]s[170]12,42:[151]s[170]7,h(i):[151]s[170]8,h(i[170]5)
  137. 1644 [151]s[170]11,33:[129]j[178]0[164]66[171]99[172](i[177]1)[171]66[172](i[178]2):[130]j,i:[129]j[178]0[164]400:[130]
  138. 1646 [151]s[170]11,0:[141]3100
  139. 1650 d[178].:[129]i[178]0[164]8:d[178]2[171]d:[151]2040,193[170]d:[129]j[178]0[164]50:[130]:[151]s[170]4,0
  140. 1652 [151]v[170]1,[194](v[170]1)[171]1:[151]s[170]1,50:[151]s[170]6,0:[151]s[170]5,2:[151]s[170]4,129:[130]
  141. 1654 [151]v[170]21,254:[129]i[178]0[164]200:[130]:[141]3200:sc[178]sc[170]100:[141]3400
  142. 1656 [129]i[178]0[164]8:[158]5155:[129]j[178]0[164]20:[130]j,i:[151]182,0
  143. 1660 [129]i[178]2[164]10[169]2:j[178]v[170]i:[151]j,[194](j)[170][180](136[171][194](j))[172]2
  144. 1662 j[178]v[170]i[170]1:[151]j,[194](j)[170][180](176[171][194](j))[172]2:[130]:[158]5166
  145. 1664 [158]5232:[139][194](182)[178]0[137]1660
  146. 1665 [129]i[178]0[164]8:[158]5166:[129]j[178]0[164]99:[130]j,i
  147. 1666 [151]v[170]21,194:[151]2046,212:[158]5264:[151]s[170]5,13:[151]s[170]1,7
  148. 1668 [151]v[170]40,7:[151]v[170]28,0:[151]v[170]21,192:[151]v[170]2,124:[151]v[170]3,165:[151]v[170]23,66
  149. 1669 [151]v[170]29,2:[151]s[170]4,129:[151]v[170]21,194:[129]i[178]0[164]14:[151]2041,216[170]i
  150. 1670 [129]j[178]0[164]30:[130]j,i:[151]v[170]21,192:[129]i[178]0[164]62:[151]704[170]i,.:[130]:[151]2041,11
  151. 1672 [151]v[170]29,0:[151]v[170]23,64:[151]v[170]2,136:[151]v[170]3,180:[151]v[170]21,194:[151]v[170]40,1
  152. 1674 [129]i[178]1[164]1e3:[130]:[153][200](d$,15)[166]8)"forcongratulations!
  153. 1676 printspc(7)"extra life awarded
  154. 1678 [158]5264:[151]s[170]5,12:[151]s,118:[151]s[170]1,46:[151]s[170]4,33:[129]j[178]0[164]500:[130]
  155. 1680 [158]5264:[151]s[170]5,12:[151]s,219:[151]s[170]1,43:[151]s[170]4,33:[129]j[178]0[164]500:[130]
  156. 1682 [158]5264:[151]s[170]5,12:[151]s,118:[151]s[170]1,46:[151]s[170]4,33:[129]j[178]0[164]500:[130]
  157. 1684 [158]5264:[151]s[170]5,12:[151]s,18:[151]s[170]1,39:[151]s[170]4,33:[129]j[178]0[164]1e3:[130]
  158. 1686 [158]5264:[151]s[170]5,143:[151]s[170]4,33:[129]i[178]0[164]41[169]3:[151]s[170]1,20[170]i[170]i
  159. 1688 [129]j[178]0[164]2:[151]725[170]j[170]i,[194](12565[170]j[170]i):[130]:[151](v[170]3),[194](v[170]3)[171]1:[130]
  160. 1690 [151]s[170]4,32:lf[178]lf[170]1:[129]i[178]0[164]800:[130]:[158]5264:[151]s[170]1,20:[151]s[170]5,79:[151]s[170]4,129
  161. 1692 [153][200](d$,20)[166]72)"lifes:cmdcmdcmdcmdcmdcmdsys"[200]("^^^^^^^",lf):[151]s[170]4,128
  162. 1694 [141]3600:[129]i[178]1[164]500:[130]:[158]5264:[151]s[170]5,77:[151]s[170]4,33:j[178]6
  163. 1696 [129]i[178]0[164]99:j[178]j[170]1:[151]s[170]1,j:[151]725[170]40[172][187](1),0:[130]
  164. 1698 [151]s[170]4,32:[151]v[170]21,192:[129]j[178]0[164]1e3:[130]:[158]5264:[137]905
  165. 1700 [129]i[178]1[164]1e3:[130]:d[178]196
  166. 1702 [158]5264:d[178]d[170]1:[139]d[178]200[167]d[178]196:[151]s[170]5,2:[151]s[170]1,20:[151]s[170]4,129:[158]5166
  167. 1704 [151]182,0:[151]2040,d:[151]v[170]1,[194](v[170]1)[170]1:[139][194](v[170]1)[179]255[137]1702
  168. 1710 [129]i[178]2[164]10[169]2:j[178]v[170]i:[151]j,[194](j)[170][180](136[171][194](j))[172]2
  169. 1712 j[178]v[170]i[170]1:[151]j,[194](j)[170][180](176[171][194](j))[172]2:[130]:[158]5166
  170. 1714 [158]5232:[139][194](182)[178]0[137]1710
  171. 1715 [129]i[178]0[164]8:[158]5166:[129]j[178]0[164]99:[130]j,i
  172. 1716 [151]v[170]21,194:[158]5264:[151]s[170]5,12:[151]s[170]1,39:[151]s[170]4,129
  173. 1718 [151]v[170]2,124:[151]v[170]3,165:[151]v[170]23,66:[151]v[170]29,2
  174. 1720 [129]i[178]0[164]20:[158]5166:[129]j[178]0[164]99:[130]j,i
  175. 1722 [153][200](d$,22)[166]8)"forsorry, no bonus!
  176. 1724 sys5264:pokes+5,14:pokes+4,33:fori=56to12step-2
  177. 1725 fork=0to1:forj=i-ktoi-k-10step-1:pokes+1,j
  178. 1726 nextj,k:sys5166:next:sys5264:pokes+5,13:pokes+4,129:fori=0to165:pokes+1,i
  179. 1728 pokev+3,165-i:next:pokes+4,128:fori=0to1e3:next:goto905
  180. 2000 pokev+39,3:j=99:pokes+4,0:pokes+6,0:pokes+5,13:pokes,0:pokes+4,33
  181. 2010 pokes+1,j:j=j-1:ifj<.thenj=.
  182. 2020 sys4614:ifabs(peek(v+8)-peek(v+10))>3orabs(peek(v+9)-peek(v+11))>1goto2010
  183. 2022 pokev+21,209:d=.:pokes+4,0:pokes+6,0:pokes+5,12:pokes+4,33
  184. 2024 fori=36to10step-1:forj=0to10:pokes+1,j+i:next:d=10-d:pokev+39,3+d:next
  185. 2026 pokev+39,7:pokes+4,0:pokes+1,9:pokes+6,0:pokes+5,12:pokes+4,129
  186. 2028 fori=0to14:poke2040,216+i:forj=0to33:nextj,i:pokev+21,208:d=.:fori=0to12
  187. 2030 d=1-d:poke2044,208+d:forj=0to33:nextj,i:pokev+1,110:pokev,peek(4342)
  188. 2032 poke182,0:sys4614:sys4679:ifpeek(182)=.goto2032
  189. 2034 poke2044,209:fori=0to500:next:gosub3100:d=0:fori=0to8:pokev+9,peek(v+9)-1
  190. 2036 poke2044,208+d:d=1-d:forj=0to30:nextj,i:pokev+21,192:forj=0to500:next
  191. 2038 gosub3200:forj=0to500:next
  192. 3000 fori=0to23:pokes+i,0:next
  193. 3001 pokes+5,90:pokes+6,170:pokes+12,10:pokes+13,90
  194. 3002 fori=0to10:x=t0(i):gosub3010:pokes+1,j:pokes,k:pokes+4,33
  195. 3004 x=t1(i):ifx>0thengosub3010:pokes+8,j:pokes+7,k:pokes+11,33
  196. 3006 forj=1totn(i):fork=6to10:pokes+24,k:next:fork=15to7step-1:pokes+24,k
  197. 3008 nextk,j:pokes+4,32:pokes+11,32:next:iflf>.goto4000
  198. 3009 goto3020
  199. 3010 j=int(x/256):k=x-256*j:return
  200. 3012 x=x^1.02:goto3010
  201. 3020 ifq=(NULL)goto4100
  202. 3021 pokes+5,90:pokes+6,170:pokes+12,10:pokes+13,90
  203. 3022 fori=0to10:x=t0(i):gosub3012:pokes+1,j:pokes,k:pokes+4,33
  204. 3024 x=t1(i):ifx>0thengosub3010:pokes+8,j:pokes+7,k:pokes+11,33
  205. 3026 forj=1totn(i):fork=6to10:pokes+24,k:next:fork=15to7step-1:pokes+24,k
  206. 3028 nextk,j:pokes+4,32:pokes+11,32:next
  207. 3030 printleft$(d$,7)spc(8)"[158]  [180][181] [171][219] [182][183] [184][165]  "spc(25)"  [180][186] [160][163] [184][165] [171][179]  
  208. 3040 [129]l[178]0[164]1:[151]s[170]5,90:[151]s[170]6,170
  209. 3042 [129]i[178]0[164]3:x[178]tr(i):[141]3010:[151]s[170]1,j:[151]s,k:[151]s[170]4,33
  210. 3044 [129]j[178]1[164]tr(i[170]4):[129]k[178]6[164]12[169]2:[151]s[170]24,k:[130]:[129]k[178]15[164]7[169][171]2:[151]s[170]24,k
  211. 3046 [130]k,j:[151]s[170]4,32:[151]s[170]11,32:[130]i,l:q[178][255]:[151]v,136:[151]v[170]1,218
  212. 3048 [151]v[170]28,1:[151]v[170]39,15:[151]v[170]37,12:[151]v[170]38,0:[151]2040,231
  213. 3050 [151]v[170]21,193:[137]3001
  214. 3100 [151]s[170]4,0:[151]s[170]5,0:[151]s[170]6,249:[151]s[170]4,129:[129]i[178]0[164]11
  215. 3102 [151]s[170]1,9[170]i[170]i:[151]731[170]3[172]i,.:[151]732[170]3[172]i,.:[151]v[170]13,86[171]i[171]i
  216. 3104 [129]j[178]0[164]33:[130]j,i:[151]s[170]4,128:[129]i[178]0[164]1e3:[130]:[142]
  217. 3200 [151]s[170]4,0:[151]s[170]5,0:[151]s[170]6,249:[151]s[170]4,129:[129]i[178]11[164]1[169][171]1
  218. 3202 [151]s[170]1,9[170]i[170]i:[151]v[170]13,88[171]i[171]i:[151]731[170]3[172]i,[194](13595[170]3[172]i)
  219. 3204 [151]732[170]3[172]i,[194](13596[170]3[172]i):[129]j[178]0[164]33:[130]j,i:[151]s[170]4,128
  220. 3206 [129]i[178]0[164]100:[130]:[151]s[170]4,0:[142]
  221. 3300 [153]""[166]72)"createdcmdcmdcmdcmdcmdsysopenbycmdcmdcmdcmdsysj_rgencmdcmdcmdcmdcmdcmdpaasch
  222. 3310 printspc(72)"[154]high-[157][157][157][157][157]score:[157][157][157][157][157][157][158]"left$(hi$(1),7)
  223. 3320 printleft$(d$,13)spc(72)"[150]score:[157][157][157][157][157][157][158]0000000
  224. 3330 [153][200](d$,16)[166]72)"listdungeoncmdcmdcmdcmdcmdcmdprint#levelcmdcmdcmdcmdcmdsys>"lv"<
  225. 3335 ifch=1thenprintleft$(d$,17)spc(32)"[159] flame [157][157][157][157][157][157]stage [157][157][157][157][157][158]"int(lv/3)"[157] <
  226. 3340 [153][200](d$,20)[166]72)"lifes:cmdcmdcmdcmdcmdcmdsys"[200]("^^^^^^^",lf);
  227. 3345 [139]lf[179]7[167][153]" ";
  228. 3350 [153]:[153][166]72)"clrtime: cmdcmdcmdcmdcmdcmd  sys     
  229. 3400 u$=mid$(str$(sc),2):printleft$(d$,15)spc(39-len(u$))"[158]"u$
  230. 3410 return
  231. 3500 pokev+21,.:print"[147][150]"spc(10)"prepare to enter the
  232. 3502 [153][166]7)"sysortan^^ or^or=^or^  ortan^or=expor^or^or^
  233. 3504 printspc(7)"[171][192] [221] [171][179][221][221][221][171]   [173][192][174] [221] [171][179][221][174][171]
  234. 3506 [153][166]7)"exp  /expexpexpexp //exp  /tanexp/exp/expexp/exp/exp
  235. 3508 printspc(15)"[154][178][174][157][157][221][221][176][174][157][157][157][157][189][189][173][189][190]";
  236. 3510 u$=str$(int(lv/3)):fori=2tolen(u$):print"[145][145][145]"l$(asc(mid$(u$,i))-48);:next
  237. 3512 goto920
  238. 3600 poke182,0:fori=1to1e3:next:printd$spc(32)"[145][150]bonus:
  239. 3602 [129]i[178]0[164]23:[151]s[170]i,0:[130]
  240. 3604 [151]s[170]4,0:[151]s[170]5,5:[151]s[170]1,15:[151]s[170]4,129:sc[178]sc[170]5:[141]3400:[151]4336,20
  241. 3606 [158]4892:[139][194](182)[178].[137]3604
  242. 3608 [142]
  243. 4000 lf[178]lf[171]1:[141]3300
  244. 4008 [158]4199:[158]4153:[139]l[178]2[167][158]4189
  245. 4010 [151]v[170]23,64:[137]1403      
  246. 4100 [151]4336,0:[151]182,0:[129]i[178]0[164]9:[139]sc[177][197]([200](hi$(10[171]i),8))[167]q[178]10[171]i
  247. 4102 [130]:[139]q[178][255][167][129]i[178]0[164]1e3:[130]:[137]6000
  248. 4104 [141]3300:[151]4335,56:[153][200](d$,12)"for>>> congratulations! <<<
  249. 4106 print"your score is reaching":print"rank"q"[157] in the top ten.
  250. 4108 x[178]0:n$[178]"":[153]"please enter your initials:"[166]64)" cmdvalvaloncmd  cmdval
  251. 4109 sys4892:ifpeek(182)>.goto4130
  252. 4110 ifx<3thenprintleft$(d$,19)spc(13+x+x)"[255][157]";
  253. 4111 getu$:ifu$=chr$(13)andx>.goto4130
  254. 4112 ifu$=chr$(20)andx>.thenprint" ":x=x-1:n$=left$(n$,x):goto4109
  255. 4113 ifx>2goto4109
  256. 4114 if(u$=>"a"andu$<="z")oru$=" "oru$="-"oru$="."goto4120
  257. 4116 print" ":goto4109
  258. 4120 printu$:n$=n$+u$:x=x+1:goto4110
  259. 4130 n$=left$(n$+b$,3):u$=mid$(str$(sc),2):fori=10toqstep-1:hi$(i)=hi$(i-1):next
  260. 4132 hi$(q)=left$("0000000",7-len(u$))+u$
  261. 4134 u$=mid$(str$(lv),2):hi$(q)=hi$(q)+left$("  00",4-len(u$))+u$+"  "+n$
  262. 4150 poke768,185:open15,8,15,"i":close15:poke768,139:ifst=-128goto6000
  263. 4200 open1,8,15,"s:2. part":close1
  264. 4210 open1,8,1,"2. part,p,w":fori=1to10:print#1,hi$(i):next:close1:goto6000
  265. 4300 pokev+21,0:sys5264:print"[147]":pokes+5,12:pokes+1,9:pokes+4,129
  266. 4302 print"[147][213]"left$(up$,38)"[201][199][158]_ >>> [171][179]  [177][178]  [176][174]  [171][219]  [173][189]  [171][219]  [202][203] <<< ^[146][200][202]";
  267. 4303 printleft$(do$,38)"[203]":fori=1to333:next
  268. 4304 printspc(5)"created [150]1985 [159]by [158]j_rgen paasch":fori=1to333:next
  269. 4310 print" [150][178][192][174][178][174][176][174][178][176][174][176]  [176][174][176][174]  [176][178][174][174][174][178][174]  [176][192][174][176][174][176][178][174][178][174]
  270. 4312 [153]" clr-tan<- (NULL)^(NULL)(NULL)(NULL)(NULL)  (NULL)(NULL)-    (NULL) -<-   (NULL)or^-<(NULL)(NULL)(NULL)-
  271. 4314 print" [154][177][192][189][177][189][173][189][189][189][173][189]  [173][189][177]    [177] [189][189][177][189]  [173][192][189][189][189][189] [189][177][189]
  272. 4320 [153][166]11)"chr$oncmd(NULL)"[200](up$,16)"right$cmdleft$":[153][166]12)"ondef(NULL) instructions def(NULL)
  273. 4321 print"[213][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][201][199]"spc(38)"[200][202]"left$(do$,38)"[203]
  274. 4322 [153]d$[166]6)"ononlistpress firebutton to continuesys
  275. 4330 i=0:j=1:k=0:poke182,0:poke4338,0:poke4339,0:poke4337,2
  276. 4332 k=k+1:ifk=66theni=j:j=j+1:k=1:ifj>13thenj=0
  277. 4334 u$=i$(i)+i$(j):printleft$(d$,19)""mid$(u$,k,38)"
  278. 4336 [158]5308:[139][194](182)[178]5[137]900
  279. 4340 [158]4794:[129]l[178]1[164]30:[130]:[137]4332
  280. 4900 [128]:[143][204]
  281. 5000 [158]4962:[158]5264:[151]s[170]5,14:d[178].:[151]s[170]4,33
  282. 5002 [129]i[178]40[164]10[169][171]1:d[178]1[171]d:[153]d$[166]32)[202]("wait",1[170]d,1)"sysonout ofcmdcmdcmdcmdcmdcmd time 
  283. 5004 forj=0to10:pokes+1,i-j:nextj,i:forj=0to800:next:ifch=1goto1700
  284. 5006 sys5264:pokes+5,14:pokes+4,33
  285. 5008 fori=0to15:forj=60-i*2to30-i*2step-1:pokes+1,j:next:pokev+1,peek(v+1)+1
  286. 5010 forj=0to2:poke892+j-i*3,.:nextj,i:pokev+1,peek(v+9):pokev,peek(v+10)
  287. 5020 sys4614:ifabs(peek(v+8)-peek(v+10))>3orabs(peek(v+9)-peek(v+11))>1goto5020
  288. 5022 pokev+21,208:pokev+1,110:pokev,peek(4342):goto2032
  289. 5100 sys5264:pokes+5,12:pokes+1,55:pokes+4,129:sys4962:fori=0to800:next
  290. 5102 sys5264:pokes+5,14:d=2:pokes+4,33:fori=62to10step-2:d=5-d:pokev+39,d
  291. 5104 forj=itoi-10step-1:pokes+1,j:next:ifd=2thensys5166
  292. 5106 next:d=196:goto1702
  293. 6000 pokev+21,0:q=.
  294. 6002 print"[147][213]"left$(up$,38)"[201][199][158]_ >>> [171][179]  [177][178]  [176][174]  [171][219]  [173][189]  [171][219]  [202][203] <<< ^[146][200][202]";
  295. 6004 printleft$(do$,38)"[203]";
  296. 6010 printspc(6)"[154][207][183][150]  the ten best runners  [146][154][183][208]
  297. 6012 [153][166]6)"sgn(NULL)defusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrcont(NULL)+
  298. 6014 fori=0to18:printspc(6)"[180][180]"spc(24)"[170][170]
  299. 6016 [130]:[153][166]6)"(NULL)(NULL)andandandandandandandandandandandandandandandandandandandandandandandandsqrsqr
  300. 6018 printspc(9)"[158]top[157][157]2)[157][157]3)[157][157]4)[157][157]5)[157][157]6)[157][157]7)[157][157]8)[157][157]9)[157][157][157]10)
  301. 6020 [129]i[178]1[164]10:[153][200](d$,4[170]i[170]i)[166]14)hi$(i):[130]
  302. 6022 u$[178]"may they run forever":[129]i[178]1[164]20
  303. 6024 [153][200](d$,4[170]i)"print"[202](u$,i,1)[166]32)[202](u$,i,1)"":[130]
  304. 6030 [129]i[178]0[164]7:q(i)[178].:[130]:[151]v[170]23,255:[151]v[170]29,255
  305. 6040 h[178][181](8[172][187](1)):[139]q(h)[177].[137]6050
  306. 6042 [151]2040[170]h,216[170][181](3[172][187](1))[172]5:x[178][181](24[170]274[172][187](1)):q(h)[178]1
  307. 6043 [151]v[170]39[170]h,[198]([202]("acdegjmn",1[170]8[172][187](1),1))[171]64
  308. 6044 [151]v[170]16,[194](v[170]16)[175](255[171]2[174]h):[139]x[177]255[167]x[178]x[171]256:[151]v[170]16,[194](v[170]16)[176](2[174]h)
  309. 6045 [151]v[170]h[170]h,x:[151]v[170]1[170]h[170]h,50[170]170[172][187](1)
  310. 6046 [151]v[170]21,[194](v[170]21)[176](2[174]h):[158]5264:[151]s[170]5,11:[151]s[170]1,8[172][187](1)[170]3
  311. 6047 [151]s[170]4,129
  312. 6050 [129]i[178].[164]7:[139]q(i)[178].[137]6060
  313. 6051 q(i)[178]q(i)[170]1:[139]q(i)[178]5[167]q(i)[178]0:[151]v[170]21,[194](v[170]21)[175](255[171]2[174]i):[137]6060
  314. 6060 [130]:[158]5280:q[178]q[170]1:[139]q[179]40[137]6040
  315. 6062 [151]v[170]21,0:[137]100
  316. 10000 [131]207,69,59,18,207,34,29,23,39,34
  317. 11000 [131]2146,1072,8,2146,851,5,2146,,2
  318. 11002 [131]2146,1072,8,2551,851,5,2408,,2
  319. 11004 [131]2408,1072,5,2146,,2,2146,851,5
  320. 11006 [131]2025,,2,2145,1072,12
  321. 12000 [131]5001,4455,3969,3746,10,4,12,18,1114,1250,1575,1487
  322. 14000 [131]"wait*newwaitrndcmdcmdcmdget getwaitcmdcmdcmdsin sincmdcmdnew"
  323. 14100 [131]"coscmdcmdwaitloggetcmdgetcmdnewwaitcos"
  324. 14200 [131]"sinnewwaitsincmdcmdnewsincmdcmdcmdsincmdnewnewnew"
  325. 14300 [131]"sinnewwaitsincmdcmdnewsincmdcmdcmdwaitrnd getcmdcmdcmdwaitlognewwaitcos"
  326. 14400 [131]"waitget getcmdcmdcmdlogwaitnewlogcmdwaitgetcmdcos"
  327. 14500 [131]"*newnewcmdcmdcmdnewnewwaitsincmdcmdcmdrnd getcmdcmdcmdwaitlognewwaitcos"
  328. 14600 [131]"sinnewwaitsincmdcmdcmdlogwaitnewrndcmdcmdcmdwaitget getcmdcmdcmdwaitlognewwaitcos"
  329. 14700 [131]"*newrndcmdsincmdcmdgetcmdwaitlog"
  330. 14800 [131]"sinnewwaitsincmdcmdcmdsinnewsincmdcmdcmdwaitget getcmdcmdcmdwaitlognewwaitcos"
  331. 14900 [131]"sinnewwaitsincmdcmdcmdsinnewcoscmdcmdcmdwaitrnd getcmdcmdcmdwaitlognewwaitcos"
  332. 15000 [131]"waitgetcmdgetcmdgetcmdnewnewnew","*newnewcmdcmdcmdlogwaitnewcmdcmdgetcmdnewnewnew","waitget getcmdcmdcmdwaitsin sincmdcmdcmdgetwait getcmdcmdnew"
  333. 16000 [131],,,,,,
  334. 19000 [131]"                                         *** r u n a w a y ***   "
  335. 20000 [131]"...welcome to runaway, my friend! you are captured by evil demons"
  336. 20001 [131]" and you have to escape out of the dungeons of death. to avoid yo"
  337. 20002 [131]"ur escape, two monster guards are chasing you. they won't be frie"
  338. 20003 [131]"ndly if they catch you! your only chance is your quickness and yo"
  339. 20004 [131]"ur intelligence. try to escape to the door in the background. it "
  340. 20005 [131]"will open if you stand exactly in front of it. but don't loose ti"
  341. 20006 [131]"me. your score will be increased in case of escaping. in the next"
  342. 20007 [131]" dungeons the monsters will become a little faster...   every thr"
  343. 20008 [131]"ee dungeons you'll have the chance of gaining an extra life in th"
  344. 20009 [131]"e flame-stage. try to escape without touching a flame. but if you"
  345. 20010 [131]" were burned or out of time in a flame-stage you won't loose a li"
  346. 20011 [131]"fe...   press [shift] or [shift lock] to pause the game...   how "
  347. 20012 [131]"far can you get? good luck...                                    "
  348.